<%@ Language=VBScript %>
<%Option Explicit%>

<!--#include file="../cons.asp"-->
<!--#include file="../../Common/Database.asp"-->

<%
	response.CacheControl = "no-cache"
	
	Dim oConn, sSQL, oRS
	Dim IdColegioQuincena, Checked
	
	Set oConn = OpenConnection
	
	IdColegioQuincena = request("IdColegioQuincena")
	Checked = request("Checked")
	
	if Checked = "true" then
		sSQL = "update ColegioQuincena set Estado = 'A' where IdColegioQuincena = " & IdColegioQuincena
	else
		sSQL = "update ColegioQuincena set Estado = 'C' where IdColegioQuincena = " & IdColegioQuincena
	end if

	Set oRS = oConn.Execute(sSQL)
	

%>